home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / Important / postman.script < prev    next >
Text File  |  1997-09-02  |  721b  |  45 lines
  1. SET @WALKLOOP 0|
  2. :LOOP|
  3. ONGOTO 0 @WALKLOOP WK1 WK2 WK3|
  4. :FIX|
  5. IF @RES CHDIR|
  6. GOTO LOOP|
  7.  
  8. :WK1|
  9. WALKTO 24 99 2 @RES|
  10. GOTO FIX|
  11.  
  12. :WK2|
  13. WALKTO 157 73 2 @RES|
  14. GOTO FIX|
  15.  
  16. :WK3|
  17. WALKTO 301 103 2 @RES|
  18. GOTO FIX|
  19.  
  20. :CHDIR|
  21. MATH @WALKLOOP + 1|
  22. MATH @WALKLOOP % 3|
  23. GOTO LOOP|
  24.  
  25. :TOUCH|
  26. [ "Postman:  Yeah, what do you want?!?"|
  27. [ "%n:  Uh, there's a package for me."|
  28. [ "Postman:  Where's your ID?"|
  29. HAVEITEM GovernmentID @RES|
  30. IF @RES GETPACKAGE|
  31. [ "%n:  I don't have it on me..."|
  32. [ "Postman:  Then I don't have"|
  33. [ "your package!!"|
  34. GOTO LOOP|
  35.  
  36. :GETPACKAGE|
  37. [ "%n:  Right here, buddy."|
  38. [ "Postman:  Yeah, its right here."|
  39. ADDITEM MailPackage|
  40. GLOSET 0 1|
  41. [ "Postman:  Have a pleasant day."|
  42. [ "%n:  Yeah, whatever."|
  43. GOTO LOOP|
  44.  
  45.